program SPGApp;

uses
  Controls,
  Forms,
  uFormBase in '..\Biblioteki\Szablony\uFormBase.pas' {fFormBase},
  uFormBaseDialog in '..\Biblioteki\Szablony\uFormBaseDialog.pas' {fFormBaseDialog},
  uFormBaseMessage in '..\Biblioteki\Szablony\uFormBaseMessage.pas' {fFormBaseMessage},
  uFormBaseNormal in '..\Biblioteki\Szablony\uFormBaseNormal.pas' {fFormBaseNormal},
  uBaseFormLogo in 'uBaseFormLogo.pas' {fBaseFormLogo},
  uBaza in 'uBaza.pas' {DMBaza: TDataModule},
  uBaseForm in 'uBaseForm.pas' {fBaseForm},
  uGlobal in 'uGlobal.pas',
  uThreads in 'uThreads.pas',
  uMain in 'uMain.pas' {fMain},
  uLogowanie in 'Narzedzia\uLogowanie.pas' {fLogowanie},
  uPorzadkiPKD in 'Narzedzia\uPorzadkiPKD.pas' {fPorzadkiPKD},
  uRaporty in 'Narzedzia\uRaporty.pas' {fRaporty},
  uUprawomocnieniaWykreslen in 'Narzedzia\uUprawomocnieniaWykreslen.pas' {fUprawomocnieniaWykreslen},
  uDodawanieMetryka in 'Metryki\uDodawanieMetryka.pas' {fDodawanieMetryka},
  uNiePodwiazanePublikatory in 'Podmioty\uNiePodwiazanePublikatory.pas' {fNiePodwiazanePublikatory},
  uDodajKRS in 'Podmioty\uDodajKRS.pas' {fDodajKRS},
  uRedakcjaPodmiotow in 'Podmioty\uRedakcjaPodmiotow.pas' {fRedakcjaPodmiotow},
  uDodajLokal in 'Podmioty\uDodajLokal.pas' {fDodajLokal},
  uDMPodmioty in 'DataModul\uDMPodmioty.pas' {DMPodmioty: TDataModule},
  uDMMetryki in 'DataModul\uDMMetryki.pas' {DMMetryki: TDataModule},
  uDMSady in 'DataModul\uDMSady.pas' {DMSady: TDataModule},
  uDMAdresy in 'DataModul\uDMAdresy.pas' {DMAdresy: TDataModule},
  uDMNazwy in 'DataModul\uDMNazwy.pas' {DMNazwy: TDataModule},
  uDMOsoby in 'DataModul\uDMOsoby.pas' {DMOsoby: TDataModule},
  uDMDodatkiOsoby in 'DataModul\uDMDodatkiOsoby.pas' {DMDodatkiOsoby: TDataModule},
  uDMPkd in 'DataModul\uDMPkd.pas' {DMPkd: TDataModule},
  uDMDokumenty in 'DataModul\uDMDokumenty.pas' {DMDokumenty: TDataModule},
  uDMOddzialy in 'DataModul\uDMOddzialy.pas' {DMOddzialy: TDataModule},
  uDMPodmiotWRelacji in 'DataModul\uDMPodmiotWRelacji.pas' {DMPodmiotWRelacji: TDataModule},
  uDMAkcje in 'DataModul\uDMAkcje.pas' {DMAkcje: TDataModule},
  uRedakcjaMetryk in 'Metryki\uRedakcjaMetryk.pas' {fRedakcjaMetryk},
  uDMRedakcjaMetryk in 'DataModul\uDMRedakcjaMetryk.pas' {DMRedakcjaMetryk: TDataModule};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;

  Application.Title := 'System redakcyjny SPG';
  Application.CreateForm(TDMBaza, DMBaza);
  Application.CreateForm(TfLogowanie, fLogowanie);
  // := TfLogowanie(Application);
  try
    if fLogowanie.ShowModal <> mrOk then
    begin
      DMBaza.Free;
      Exit;
    end;
  finally
    if fLogowanie <> nil then
      fLogowanie.Free;
  end;

  Application.CreateForm(TfMain, fMain);
  Application.Run;
end.
